home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / Outline PRO 1.151 folder.sit / Outline PRO 1.151 folder / D2 / background_2792.txt < prev    next >
Text File  |  1995-10-19  |  2KB  |  63 lines
  1. -- background: 2792 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: D1
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 04
  10. -- high flags: 2007
  11. -- rect: left=-1 top=-1 right=122 bottom=513
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 16384
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: NOTE
  20. ----- HyperTalk script -----
  21. ON ENTERINFIELD
  22.   SEND CLOSE TO THIS STACK
  23. END ENTERINFIELD
  24.  
  25.  
  26. -- part 11 (button)
  27. -- low flags: 00
  28. -- high flags: 0000
  29. -- rect: left=496 top=121 right=138 bottom=512
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 3071 / 3071
  32. -- text alignment: 1
  33. -- font id: 16383
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: RESIZE
  38. ----- HyperTalk script -----
  39. on mouseWithin
  40.   repeat
  41.     set cursor to arrow
  42.     if the mouseLoc is not within the rect of me then exit repeat
  43.     if the mouse is down then
  44.       PUT NAME OF CARD WINDOW INTO NC
  45.       PUT THE SELECTEDCHUNK INTO SC
  46.       get resizeWindow(LEFT OF CARD WINDOW+110,TOP OF CARD WINDOW+90,LEFT OF CARD WINDOW+512,TOP OF CARD WINDOW+480)
  47.       if it is not empty theN
  48.         LOCK SCREEN
  49.         --   HIDE CARD WINDOW
  50.         set the rect of card window to it
  51.         SET RECT OF FLD"NOTE" TO -1,-1,WIDTH OF CARD WINDOW+1,HEIGHT OF CARD WINDOW-15
  52.         set the loc of BG BUTTON"RESIZE" to the width of card window - 8,the height of card window - 8
  53.         UNLOCK SCREEN
  54.         WINDNAME (NC)
  55.         --  SHOW CARD WINDOW
  56.         SELECT (SC)
  57.       END IF
  58.     end if
  59.   end repeat
  60.  
  61. end mouseWithin
  62.  
  63.